For Each Variant[] (gb)

Dim hVariantArray As Variant[]
Dim aVariant As Variant
For Each aVariant In hVariantArray
...
Next

Enumerates each element stored in the array.